BEGIN "DSK:CORRS.GOD[DIA,HPM]"
REQUIRE "GRAHDR.SAI[GOD,HPM]" SOURCE_FILE;
INTEGER FJ;
PROCEDURE TLINE(REAL X,Y,XX,YY; INTEGER T);
   BEGIN
   DRKEN; LINE(X,Y,XX,YY,7);
   LITEN; LINE(X,Y,XX,YY,3);
   END;
FJ←FILJOB("DSK:CORRS.GOD[DIA,HPM]");
 DDINIT;
 SCREEN(.00000,1.0000,1.0000,.00000);
 PICFIL(.00000,1.0000,1.0000,.00000,"U:SEPT.14[DIA,HPM]");
 LITEN;
 LINE(.00000,.00000,.00000,1.0000,3);
 LINE(1.0000,1.0000,.00000,1.0000,3);
 LINE(1.0000,1.0000,1.0000,.00000,3);
 LINE(.00000,.00000,1.0000,.00000,3);
 LITEN;
 TLINE(.43750,.00000,.43750,.73333,0);
 TLINE(.43750,.73333,1.0625,.73333,0);
 TLINE(1.0625,.73333,1.0625,.00000,0);
 TLINE(1.0625,.00000,.43750,.00000,0);
 LITEN;
 TLINE(.62500,.20000,.62500,.56667,0);
 TLINE(.62500,.56667,.96875,.56667,0);
 TLINE(.96875,.56667,.96875,.20000,0);
 TLINE(.96875,.20000,.62500,.20000,0);
 LITEN;
 TLINE(.70313,.26667,.70313,.45000,0);
 TLINE(.70313,.45000,.87500,.45000,0);
 TLINE(.87500,.45000,.87500,.26667,0);
 TLINE(.87500,.26667,.70313,.26667,0);
 LITEN;
 TLINE(.75781,.31667,.75781,.40833,0);
 TLINE(.75781,.40833,.84375,.40833,0);
 TLINE(.84375,.40833,.84375,.31667,0);
 TLINE(.84375,.31667,.75781,.31667,0);
 LITEN;
 TLINE(.78906,.34167,.78906,.38750,0);
 TLINE(.78906,.38750,.83203,.38750,0);
 TLINE(.83203,.38750,.83203,.34167,0);
 TLINE(.83203,.34167,.78906,.34167,0);
 DPYUP(-1,-1);
KILJOB(FJ);
END ;